home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / 93src.lha / src / vax / vaxglue.sml < prev    next >
Encoding:
Text File  |  1993-01-27  |  764 b   |  26 lines
  1. (* Copyright 1989 by AT&T Bell Laboratories *)
  2. structure VaxMC : CODEGENERATOR = 
  3. struct
  4.   structure CM = VaxCM(VaxMCode.Coder)
  5.   structure G = CPScomp(CM)
  6.   fun generate lexp_err = (G.compile lexp_err; VaxMCode.finish())
  7. end
  8.  
  9. structure VaxAC : ASSEMBLER =
  10. struct
  11.   structure CM = VaxCM(VaxAsCode)
  12.   structure AssemGen = CPScomp(CM)
  13.   fun generate(lexp_err,stream) = (VaxAssem.outfile := stream;
  14.                    AssemGen.compile lexp_err)
  15. end
  16.  
  17. structure IntVax = IntShare(structure Machm = VaxMC
  18.                 val fileExtension = ".vax"
  19.                 functor Debugger = BogusDebugger
  20.                )
  21. structure IntVaxD = IntShare(structure Machm = VaxMC
  22.                 val fileExtension = ".vax"
  23.                 functor Debugger =  RealDebugger
  24.                )
  25. structure CompVax = Batch(structure M=VaxMC and A=VaxAC)
  26.